home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
intext1a
/
globalse.bas
< prev
next >
Wrap
BASIC Source File
|
1999-09-27
|
299b
|
13 lines
Attribute VB_Name = "modGlobalSearch"
Public Function GetSelectedFile(strPath As String) As String
If Right(strPath, 1) <> "\" Then
GetSelectedFile = strPath & "\" & frmGlobal.File1.FileName
Else
GetSelectedFile = strPath & frmGlobal.File1.FileName
End If
End Function